home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / dhhelper.zip / DEMO0.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-12  |  1KB  |  28 lines
  1. Program DEMO0;    {Simple demo of how to use the Help unit}
  2.  
  3. {=========================================================================
  4.  
  5.  a) Use The Helper to compile DEMO0.HLS (supplied with The Helper), to
  6.     create the help file DEMO0.HLP.
  7.  
  8.  b) Then run this program (DEMO0.PAS) with Turbo Pascal 4 or higher.
  9.  
  10.  c) The units HELP.TPU, DOSSHELL.TPU and LIBRARY1.TPU should be available
  11.     in the current directory when Turbo Pascal compiles the program.
  12.  
  13. =========================================================================}
  14.  
  15. uses Help;        {For access to Help utilities}
  16.  
  17. Var
  18.   fn : String;    {The disk file name of the Help file to use}
  19.  
  20. BEGIN
  21.   SaveHelpBG;            {Save the screen background}
  22.   fn:='demo0.hlp';       {Define the Help file name - it must have been }
  23.                          {created previously with The Helper            }
  24.   Initialise_Help(fn);   {Initialise the Help file}
  25.   If HelpInitialised then Use_Help(0);    {Use the Help file}
  26.   RestoreHelpBG;         {Restore the original screen and end}
  27. END.
  28.